program power
	implicit none
	double precision:: a
	a = 3d0
	write(*,*) a**2.5d0
end program power
